home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / nct10020.geo / 00229.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  2.0 KB  |  100 lines
  1. on startMovie
  2.   Set_CDcounter(2)
  3.   initLesson()
  4.   CheckForTagWd()
  5. end
  6.  
  7. on HideLastStep
  8.   repeat with i = 15 to 22
  9.     puppetSprite(i, 0)
  10.     UpdateCursors(i, 0)
  11.   end repeat
  12. end
  13.  
  14. on TheinitCursor
  15.   initCursorCastNum()
  16.   initCursorList(1)
  17.   set CursorCastNum to getCursor(2)
  18.   cursor([CursorCastNum, CursorCastNum + 1])
  19.   UpdateCursors(26, 3)
  20. end
  21.  
  22. on checkScreenStatus
  23.   CheckRollOver()
  24.   CheckSnakeStatus()
  25.   go(the frame)
  26. end
  27.  
  28. on BlinkNext
  29.   if (the timer > getTimer()) and not soundBusy(2) then
  30.     startTimer()
  31.     if the name of cast the castNum of sprite get_NEXTSprite() = "NEXT" then
  32.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT_E"
  33.     else
  34.       set the castNum of sprite get_NEXTSprite() to the number of cast "NEXT"
  35.     end if
  36.   end if
  37. end
  38.  
  39. on playTheTSound theTSnd
  40.   PlaySound("NCT10020.s0" & theTSnd)
  41. end
  42.  
  43. on GoNext
  44.   if not get_Disabled() then
  45.     sound stop 2
  46.     if Get_NEXT() = 3 then
  47.       unLoad()
  48.     end if
  49.     if Get_NEXT() = 6 then
  50.       repeat with i = 20 to 22
  51.         UpdateCursors(i, 0)
  52.         puppetSprite(i, 0)
  53.       end repeat
  54.       UpdateCursors(23, 0)
  55.     end if
  56.     if Get_NEXT() > 7 then
  57.       GoNextMovie()
  58.     else
  59.       go("t" & Get_NEXT())
  60.     end if
  61.     Set_NEXT(Get_NEXT() + 1)
  62.   end if
  63. end
  64.  
  65. on stopMovie
  66.   sound stop 1
  67.   unLoad()
  68.   setEmptyCursor()
  69. end
  70.  
  71. on GoNextMovie
  72.   PlaySound("GOSOUND.SO1")
  73.   SaveHilite()
  74.   Add_CDcounter(1)
  75.   set cdNum to Get_CDcounter()
  76.   set movieName to item cdNum of Get_CurrentSnakeScreens()
  77.   go("INIT" & Get_ScreenSubject(), movieName & ".GEO")
  78. end
  79.  
  80. on handleExit
  81.   repeat with i = 23 to 26
  82.     set the visible of sprite i to 0
  83.     UpdateCursors(i, 0)
  84.   end repeat
  85.   UpdateCursors(23, 3)
  86. end
  87.  
  88. on GO_TO_T theSpriteNum
  89.   puppetSprite(15, 1)
  90.   puppetSprite(16, 1)
  91.   puppetSprite(theSpriteNum, 1)
  92.   set the castNum of sprite theSpriteNum to the number of cast ("BTN" & theSpriteNum & "_V")
  93.   repeat with i = 23 to 26
  94.     set the visible of sprite i to 1
  95.   end repeat
  96.   UpdateCursors(26, 3)
  97.   go("t" & theSpriteNum)
  98.   UpdateCursors(23, 0)
  99. end
  100.